;Start of program
	XPROG
		;BLOCK
	XMVAR
		;
	22
	0
	XMAKEVT
		;$B1.EVNT
	24
	0
		;Print
	XPRINT
	L1
		;Print
	XPUSH
	L2
	XVALPRN
		;Move
	XMOVE
	L3
	4
		;Print
	XPRINT
	L4
		;Print
	XGTVAL
		;BARM
	14
	XVALPRN
		;Event operation
	XWAITE
		;$B1.EVNT
	24
		;Block end cleanup
	XKVAR
		;
	22
	0
	XDESEVT
		;$B1.EVNT
	24
	0
		;End of BLOCK
	XENDP
		;End of program